home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IFRSIM.DSK / LOST IN LR.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  87 lines
  1. 1 S = 100:S1 = 0:UP = 24579
  2. 2 ST = 24576:O1 = ST +56:O2 = ST +58:I1 = ST +60:I2 = ST +61:MA = ST +12:X1 = ST +26:Y1 = ST +28:AL = ST +87
  3. 3 SH = ST +09:PL = ST +06:LI = ST +15:XY = ST +18:DF = ST +39:CH = ST +93:WS = ST +42:WW = ST +43:WN = ST +44:WE = ST +45
  4. 5 XC = 100:YC = 100:XF = 70:YF = 130
  5. 10  GOSUB 5000
  6. 11 A% =  RND(1) *4:B% =  RND(1) *50
  7. 12 MT = 15:GAS = 0:MI = 0:SE = 0:S1 = 0
  8. 13  POKE WN,0: POKE WE,0: POKE WS,0: POKE WW,0
  9. 14  ON A% GOTO 15,16,17,18
  10. 15  POKE WN,B%: GOTO 20
  11. 16  POKE WE,B%: GOTO 20
  12. 17  POKE WS,B%: GOTO 20
  13. 18  POKE WW,B%
  14. 20  VTAB 23: PRINT A%,B%: CALL ST
  15. 30  POKE O1,32: POKE O2,32: POKE I1,48: POKE I2,48
  16. 40  VTAB 22: PRINT "OBS TOP (LOC)=220  OBS BOTTOM = 004"
  17. 50  POKE X1, RND(1) *100 +50: POKE Y1, RND(1) *100 +60
  18. 81  POKE AL,16: POKE AL -3,32:MA% = 3
  19. 100  CALL UP
  20. 110 S1 = S1 +1: IF S1 >S  THEN 300
  21. 200  GOTO 100
  22. 210  REM  
  23. 220  REM  
  24. 230  REM  
  25. 300 S1 = 0:SE = SE +1: IF SE >59  THEN 4000:RR% =  RND(1)
  26. 310  HTAB 1: VTAB 24: PRINT HO;":";;MI;":";SE;" GAS=";MT -GA;" MINUTES REMAINING";
  27. 320 X =  PEEK(X1):Y =  PEEK(Y1):DY = X -XC:DX = X +Y -200
  28. 321 IX = XF -X:IY = YF -Y
  29. 322  IF IX = 0  THEN 324
  30. 323 IT = IY/IX
  31. 324 T1 =  ATN(IT)
  32. 325 T1% = 16 -10 *T1
  33. 327  IF X >XF  THEN PF% = (176 -T1%) - PEEK(CH)
  34. 328  IF X <XF  THEN PF% = (208 -T1%) - PEEK(CH)
  35. 329  IF PF% >64  THEN PF% = PF% -64: GOTO 329
  36. 330  POKE DF,PF%
  37. 335  IF DX < -5  THEN DX =  -6
  38. 340  IF DX >5  THEN DX = 6
  39. 350  POKE O1,32 -DX: POKE I1,48
  40. 360  IF DY < -5  THEN DY =  -6
  41. 370  IF DY >5  THEN DY = 6
  42. 380  POKE O2,32 +DY: POKE I2,48
  43. 385  IF  PEEK(ALT) <MA%  THEN 480
  44. 390  IF DX < -5  OR DX >5  THEN 100
  45. 400  IF X <85  OR X >105  THEN 100
  46. 410 SL = XC -X:DI =  PEEK(ALT) +SL -16
  47. 420  IF DI < -6  THEN DI =  -6
  48. 430  IF DI >6  THEN DI = 6
  49. 450  POKE I1,48 -DI
  50. 470  IF  PEEK(AL) >2  THEN 100
  51. 480  HCOLOR= 2: CALL MA
  52. 490  HGR : CALL 24588
  53. 500  HCOLOR= 2: HPLOT 92,113
  54. 502  HPLOT  TO 80,125
  55. 510  HPLOT  TO 80,115
  56. 520  HPLOT  TO 90,120
  57. 525  HCOLOR= 1
  58. 530  FOR X = 95 TO 150
  59. 540 Y = 205 -X
  60. 545  HPLOT X,Y
  61. 550  NEXT 
  62. 560  FOR Y = 90 TO 150
  63. 565 X = 101: HPLOT X,Y
  64. 570  NEXT 
  65. 580  FOR I = 1 TO 30
  66. 590 X =  RND(1) *5:Y =  RND(1) *5
  67. 595  HPLOT 65 +X,132 +Y: NEXT 
  68. 600  VTAB 23: PRINT : PRINT : PRINT : PRINT "HIT RETURN TO FLY THIS AGAIN": PRINT "ANY OTHER KEY FOR MENU": GET A$
  69. 610  HOME : TEXT 
  70. 615  IF  ASC(A$) = 13  THEN 10
  71. 620  PRINT  CHR$(4)
  72. 630  PRINT  CHR$(4);"RUN MENU"
  73. 640  END 
  74. 4000 SE = 0:MI = MI +1:GA = GA +1
  75. 4010  GOTO 100
  76. 5000  TEXT : HOME : PRINT "YOU ARE LOST NEAR LITTLE ROCK"
  77. 5010  PRINT : PRINT "YOUR BOTTOM OMNI IS 004 FROM LIT VOR"
  78. 5020  PRINT : PRINT "TOP OMNI IS LOCALIZER FOR RUNWAY 22"
  79. 5030  PRINT : PRINT "AT ADAMS FIELD.  ADF IS TUNED TO LASKI"
  80. 5040  PRINT : PRINT "FIND THE AIRPORT AND LAND.  YOU HAVE"
  81. 5050  PRINT : PRINT "FIFTEEN MINUTES.  GOOD LUCK !"
  82. 5060  PRINT : PRINT : PRINT "COPYRIGHT 1982 BY VERNON BROWN"
  83. 5070  PRINT "2110 N 2ND ST"
  84. 5080  PRINT "CABOT ARK 72023 (501) 843 2988"
  85. 5090  PRINT 
  86. 5100  PRINT "HIT ANY KEY WHEN READY TO FLY";
  87. 5110  GET A$: HOME : RETURN